МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА” Кафедра інформаційних систем та мереж Лабораторна робота №5 на тему РЕАЛІЗАЦІЯ ЦИКЛІВ У PASCAL  Львів-2009 Мета роботи ознайомлення із циклічними обчислювальними процесами та їх програмуванням на алгоритмічній мові Pascal.. Перший рівень Використовуючи оператори циклу, протабулювати значення функції y = f (x) на проміжку [a, b] з кроком dx . Результати обчислень представити у вигляді таблиці. Результати обчислення функції y = f (x) на проміжку [a, b] з кроком dx . program laba5_1; var b,dx,y,x:real; begin x:=-PI/2; b:=PI/2; dx:=PI/20; while x <= b do begin y:=cos(x)/sin(x); writeln ('x=',x:6:3,' y=',y:5:4); x:=x+dx; end; readln; end.

Другий рівень Згідно номеру варіанта (див. умови у третьому рівні) скласти програму з використанням одного із операторів циклу. 5. Суму кубів всіх від’ємних елементів послідовності. program laba5_2; var a : Integer; s : Longint; Begin Readln (a); s:=0; while a<=50 do begin if a<0 then s:=s+a*a*a; a:=a+1; end; writeln(S); end.
 
Третій рівень Згідно номеру варіанта скласти програму з використанням двох інших операторів циклу (відмінних від використаного в завданні другого рівня). 5. Суму кубів всіх від’ємних елементів послідовності.  program laba5_31; var a : Integer; s : Longint; Begin Readln (a); s:=0; repeat begin if a<0 then s:=s+a*a*a; a:=a+1;end; until a>=50; writeln(S); readln; end
 var a : Integer; s : Longint; Begin Readln (a); s:=0; for a:=a to 100 do begin if a<0 then s:=s+a*a*a; a:=a+1; end; writeln(S); readln; end.
Висновок на лабораторній роботі ознайомився із циклічними обчислювальними процесами та їх програмуванням на алгоритмічній мові Pascal.